% V20210224 - 9.15 GW_ADD_INPUTURL

INCLUDE "GW.bas"

p = GW_NEW_PAGE()

ctl = GW_ADD_INPUTURL(p, "Type an url:", "http://mougino.free.fr")

GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

PRINT GW_GET_VALUE$(ctl)

END "End of InputURL control."